From b57b3cb3424179264071773d581fed1e320dc0c3 Mon Sep 17 00:00:00 2001 From: Justin Burkett Date: Wed, 30 Nov 2016 08:39:52 -0500 Subject: [PATCH] Add test for #155 --- which-key-tests.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/which-key-tests.el b/which-key-tests.el index 244992df16a..4fcbf395385 100644 --- a/which-key-tests.el +++ b/which-key-tests.el @@ -52,6 +52,7 @@ (("C-c .+" . nil) . ("C-c *" . "c-c *"))))) (which-key-add-key-based-replacements "C-c ." "test ." + "SPC ." "SPC ." "C-c \\" "regexp quoting" "C-c [" "bad regexp") (should (equal @@ -61,18 +62,22 @@ (which-key--maybe-replace '("C-c b" . "test")) '("C-c a" . "c-c a"))) (should (equal - (which-key--maybe-replace '("C-c ." "not test .")) + (which-key--maybe-replace '("C-c ." . "not test .")) '("C-c ." . "test ."))) (should (not (equal - (which-key--maybe-replace '("C-c +" "not test .")) + (which-key--maybe-replace '("C-c +" . "not test .")) '("C-c ." . "test .")))) (should (equal - (which-key--maybe-replace '("C-c [" "orig bad regexp")) + (which-key--maybe-replace '("C-c [" . "orig bad regexp")) '("C-c [" . "bad regexp"))) (should (equal - (which-key--maybe-replace '("C-c \\" "pre quoting")) - '("C-c \\" . "regexp quoting"))))) + (which-key--maybe-replace '("C-c \\" . "pre quoting")) + '("C-c \\" . "regexp quoting"))) + ;; see #155 + (should (equal + (which-key--maybe-replace '("SPC . ." . "don't replace")) + '("SPC . ." . "don't replace"))))) (provide 'which-key-tests) ;;; which-key-tests.el ends here -- 2.30.2